home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / xdsn217.zip / SAMPLES / WATCOM / stdio.def < prev    next >
Text File  |  1996-03-01  |  3KB  |  83 lines
  1. (* A sample of foreign definition module for <stdio.h> *)
  2. (* Copyright (c) xTech 1992,95.  All Rights Reserved *)
  3. <*+ M2EXTENSIONS *>
  4. <*+ M2ADDTYPES *>
  5. DEFINITION MODULE [2] stdio;
  6.  
  7. FROM SYSTEM IMPORT size_t, ADDRESS, int, BYTE;
  8. TYPE X2C_pCHAR = POINTER TO CHAR;
  9.  
  10. CONST
  11.   SEEK_SET = 0;
  12.   SEEK_CUR = 1;
  13.   SEEK_END = 2;
  14.   EOF      =-1;
  15.  
  16. TYPE
  17.   FILE = RECORD END;
  18.  
  19. PROCEDURE clearerr(VAR f: FILE);
  20. PROCEDURE fclose(VAR f: FILE): int;
  21. PROCEDURE fflush(VAR f: FILE): int;
  22. PROCEDURE fgetc(VAR f: FILE): int;
  23. PROCEDURE fgets(VAR s: ARRAY OF CHAR; n: int; VAR f: FILE): ADDRESS;
  24. PROCEDURE fileno(VAR f: FILE): int;
  25. PROCEDURE fopen(path,mode: X2C_pCHAR): ADDRESS;
  26. (* returns POINTER TO FILE *)
  27.  
  28. PROCEDURE fprintf(VAR f: FILE; format: X2C_pCHAR; SEQ x: BYTE): int;
  29. PROCEDURE fputc(c: int; VAR f: FILE): int;
  30. PROCEDURE fputs(s: X2C_pCHAR; VAR f: FILE): int;
  31. PROCEDURE fread(ptr: ADDRESS; size,n: size_t; VAR f: FILE): size_t;
  32.  
  33. PROCEDURE freopen(path,mode: X2C_pCHAR; VAR oldfile: FILE): ADDRESS;
  34. (* returns POINTER TO FILE *)
  35.  
  36. PROCEDURE fdopen(handle: int; type: X2C_pCHAR): ADDRESS;
  37. (* returns POINTER TO FILE *)
  38.  
  39. PROCEDURE fscanf(VAR f: FILE; format: X2C_pCHAR; SEQ x: BYTE): int;
  40. PROCEDURE fseek(VAR f: FILE; offset: LONGINT; whence: int): int;
  41. PROCEDURE ftell(VAR f: FILE): LONGINT;
  42. PROCEDURE fwrite(ptr: ADDRESS; size,n: size_t; VAR f: FILE): size_t;
  43.  
  44. PROCEDURE gets(VAR s: ARRAY OF CHAR): ADDRESS;
  45. PROCEDURE perror(s: X2C_pCHAR);
  46. PROCEDURE printf(format: X2C_pCHAR; SEQ x: BYTE): int;
  47. PROCEDURE puts(s: X2C_pCHAR): int;
  48. PROCEDURE rename(oldnam,newname: X2C_pCHAR): int;
  49. PROCEDURE rewind(VAR f: FILE);
  50.  
  51. PROCEDURE scanf(format: X2C_pCHAR; SEQ x: BYTE): int;
  52. PROCEDURE setbuf(VAR f: FILE; buf: ADDRESS);
  53. PROCEDURE setvbuf(VAR f: FILE; buf: ADDRESS; type: int; size: size_t): int;
  54.  
  55. PROCEDURE sprintf(VAR s: ARRAY OF CHAR; format: X2C_pCHAR; SEQ x: BYTE): int;
  56. PROCEDURE sscanf(s,format: X2C_pCHAR; SEQ x: BYTE): int;
  57.  
  58. PROCEDURE tmpfile(): ADDRESS;
  59. (* returns POINTER TO FILE *)
  60.  
  61. PROCEDURE ungetc(c: int; VAR f: FILE): int;
  62.  
  63. PROCEDURE vfprintf(VAR f: FILE; format: X2C_pCHAR; args: ADDRESS): int;
  64. PROCEDURE vfscanf(VAR f: FILE; format: X2C_pCHAR; args: ADDRESS): int;
  65. PROCEDURE vprintf(format: X2C_pCHAR; args: ADDRESS): int;
  66. PROCEDURE vscanf(format: X2C_pCHAR; args: ADDRESS): int;
  67. PROCEDURE vsprintf(VAR s: ARRAY OF CHAR; format: X2C_pCHAR; args: ADDRESS): int;
  68. PROCEDURE vsscanf(VAR s: ARRAY OF CHAR; format: X2C_pCHAR; args: ADDRESS): int;
  69.  
  70. PROCEDURE fgetpos(VAR f: FILE; VAR fp: LONGINT): int;
  71. PROCEDURE fsetpos(VAR f: FILE; VAR fp: LONGINT): int;
  72.  
  73. PROCEDURE putchar(c: int): int;
  74. PROCEDURE getchar(): int;
  75. PROCEDURE putc(c: int; VAR f: FILE): int;
  76. PROCEDURE getc(VAR f: FILE): int;
  77. PROCEDURE remove(path: X2C_pCHAR): int;
  78.  
  79. PROCEDURE feof(VAR f: FILE): int;
  80. PROCEDURE ferror(VAR f: FILE): int;
  81.  
  82. END stdio.
  83.